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Preface 


This  report  was  prepared  by  Dr.  I K.  Iskandar,  Research  Chemist,  D Robinson, 
Computer  Technician,  W Willcockson,  Environmental  Science  Technician,  and 
E Keefauver,  Environmental  Science  Technician,  of  the  Earth  Sciences  Branch, 
Research  Division,  U S Army  Cold  Regions  Research  and  Engineering  Laboratory 
The  study  was  funded  by  Corps  of  Engineers  Civil  Works  Project  31280,  Evalua- 
tion of  Existing  Facilities  for  Wastewater  Land  Treatment 

The  technical  content  of  the  report  was  reviewed  by  Thomas  lenkins  and 
lames  Martell  of  CRREL 


Land  application  of  wastewater  has  been  practiced  for  centuries  all  over  the 
world  In  recent  years  there  has  been  a trend  toward  use  of  land  application 
systems  for  the  purpose  of  wastewater  treatment  This  is  essentially  a result  of 
more  stringent  water  quality  standards  and  an  increased  concern  over  en- 
vironmental pollution 

Since  1972  CRREL  has  conducted  extensive  research  on  land  treatment  of 
wastewater.  A portion  of  this  program  has  been  concerned  with  evaluating  the 
design,  operating  performance  and  management  characteristics  of  existing  land 
application  systems  and  assessing  the  reasons  for  system  success  or  failure 

The  experience  and  information  gained  from  existing  systems,  for  example,  in- 
formation on  the  long-term  environmental  effects  and  problems  encountered 
with  heavy  metals,  should  be  utilized  in  the  design  and  management  of  new 
systems.  Use  of  such  information  may  lead  to  a better  means  of  dealing  with  such 
problems. 

Due  to  the  large  number  of  existing  systems  and  available  publications  and  the 
diversity  of  sites,  a computer  file  has  been  established  at  CRREL  and  made 
available  to  the  public  The  file  contains  compiled  information  on  both  foreign 
and  domestic  systems  Two  programs  have  been  written  in  BASIC  to  manipulate 
the  file  The  SEARCH  program  is  used  to  locate  a system  or  systems  with  specific 
design  parameters  and  UPDATE  is  used  to  revise  the  file  A listing  of  both  pro- 
grams is  included  and  a listing  of  the  systems  on  file  as  of  February  1978  is 
available  in  CRREL  Internal  Report  561  (Currently  there  are  approximately  400 
domestic  and  75  foreign  systems  in  the  file  ) SEARCH  can  be  used  along  with  the 
Design  Process  Manual  for  Land  Treatment  of  Wastewater,  published  recently  by 
the  Corps  of  Engineers  and  Environmental  Protection  Agency,  in  planning  and 
design  of  land  application  systems. 
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COMPUTER  FILE  FOR 

EXISTING  LAND  APPLICATION  OF 

WASTEWATER  SYSTEMS:  A USER'S  GUIDE 

I.K.  Iskandar,  D.  Robinson, 

W.  Willcockson  and  E.  Keefauver 


INTRODUCTION 

Land  application  of  wastewater  is  not  new. 
The  first  documented  wastewater  and  sludge  ap- 
plications on  land  were  in  Poland  and  Germany 
in  the  16th  century  (Iskandar  1978,  Wiezbicki 
1977,  Markland  et  al.  1974).  In  the  United  States, 
there  have  been  systems  in  operation  since  the 
late  19th  and  early  20th  centuries  (Pound  and 
Crites  1975)  In  recent  years,  wastewater  applica- 
tion on  land  has  been  used  for  both  the  treat- 
ment of  the  wastewater  and  for  water  resources 
management  (irrigation  and  recharging  of 
underground  water  supplies)  However,  informa- 
tion on  the  performance  and  the  long-term  ef- 
fects (if  any)  of  older  systems  is  needed  for  the 
design,  operation  and  management  of  new 
systems 

Because  of  the  large  number  of  publications 
available  and  the  diversity  of  sites  and  their  en- 
vironmental factors,  a computer  file  has  recent- 
ly been  established  at  CRREL  in  order  to  compile 
existing  information  and  literature  on  both 
foreign  and  domestic  systems  Information  on 
these  existing  systems  can  be  used  in  the  design, 
operation  and  management  of  new  land  treat- 
ment systems  Also,  an  assessment  of  the  long- 
term effects  on  the  environment  as  a result  of 
applying  wastewater  on  land  can  be  obtained.  At 
the  present  time,  information  on  more  than  400 
domestic  and  75  foreign  systems  is  stored  in  the 
computer  The  purpose  of  this  report  is  to 
describe  to  the  user  how  to  search  for  a system 
(or  systems)  and  how  to  update  systems  on  file 
The  two  programs  are  named  "SEARCH"  and 


"UPDATE,"  respectively  One  of  the  limitations 
of  these  programs  is  that  they  are  currently  only 
available  on  the  Dartmouth  College  Time  Shar- 
ing system  using  BASIC  or  S BASIC  languages 
Efforts  are  being  made,  however,  to  make  the 
programs  available  on  other  computer  systems 
for  use  by  the  Corps  of  Engineers  Districts  and 
Divisions  In  the  meantime,  the  computer  pro- 
gram and  the  information  stored  can  be  adapted 
by  the  user  to  other  systems  Another  means  of 
obtaining  information  on  similar  systems  is  to 
write  to  CRREL  (TIAC)  for  assistance. 

The  purpose  of  this  report  is  to  present  a brief 
description  of  the  SEARCH  and  UPDATE  pro- 
grams and  examples  from  each.  Also,  examples 
on  how  to  use  the  stored  information  in  the  plan- 
ning and  design  of  new  land  treatment  systems 
are  presented  in  CRREL  Internal  Report  561 


PROGRAM  SEARCH 

SEARCH  is  the  computer  program  being  used 
to  retrieve  basic  data  on  wastewater  systems 
and  associated  papers  from  the  computer 
storage  bank.  Figure  1 is  a flow  chart  of  the  com- 
puter program  SEARCH 

Each  system  has  the  same  information  (search 
parameters)  encoded  with  it.  In  order  to  find  a 
system,  any  one  or  more  of  these  search 
parameters  can  be  used;  the  computer  will  then 
look  through  its  files  and  pick  out  all  systems 
which  fit  the  specifications.  The  searching 
parameters  are  listed  below 
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Figure  1.  Flow  chart  of  the  computer 
program  SEARCH. 


Tabic  I.  System  name  abbreviations. 

Air  Force  Academy  — USAF  ACAD 
Air  Force  Base  — AFB 
Croydon-Beddington  — Croydon-BEDD 
East  — E. 

General  — CEN 
General-irrigation  — CEN  -IRR 
General-overland  flow  — GEN  OVE 
General-rapid  infiltration  — GEN-RAP 
General-slow  infiltration  — CEN  -SLO 
North  - N 
Paper  — PAP 

Pietmaritzburg  — PIETERMARITZ 
River  — R 
Saint  — ST 
South  — S. 

University  — U 
Valley  - VAL 
West  - W 


Searching  Parameters 

1.  System  name— the  name  to  be  used  for  the 
system.  An  important  constraint  in  the  program 
is  that  the  system  name  not  exceed  14  characters 
in  length.  A character  is  a letter,  space  or  punc- 
tuation mark.  See  Table  I for  a list  of  system  ab- 
breviations. 

2.  Location  — the  location  of  the  system,  either 
the  country  (if  foreign)  or  the  state  (if  in  the  U.S.). 
As  with  the  system  name  this  must  be  14 
characters  or  less.  See  Table  II  for  a list  of  ab- 
breviations. 

3.  System  type— whether  the  system  is  opera- 
tional or  a prototype 

4.  Flow  rate— treatment  capacity  in  millions 
of  gallons  per  day  (mgd)  of  system  (N/A  if  not 
available)  If  only  a range  of  flow  rates  is  given  in 
a paper,  the  maximum  rate  is  used  and  the  flow 
rate  range  is  placed  in  the  abstract  following  the 
information  about  the  paper 

5.  Waste  type  — the  kind  of  sewage  used.  The 
choices  are  municipal,  industrial,  agricultural,  or 
general  (a  combination). 

6.  Ground  cover  — the  vegetation,  in  general, 
present  at  the  treatment  or  disposal.  The  choices 
are  grass,  trees,  vegetable-crop,  forage-crop  and 
none.  None  is  used  if  there  is  no  ground  cover 
present,  and  N/A  is  used  if  ground  cover  informa- 
tion is  available 

7.  Treatment  type  — the  choices  are  slow  in- 
filtration, rapid  infiltration,  overland  flow,  all,  or 
N/A. 

8.  Application  mode  — the  choices  are  spray, 
flood,  both,  or  N/A. 

9.  Application  rate  — the  number  of  inches  per 
week  of  wastewater  application  (to  convert  to 
cm/wk  multiply  by  2.54).  For  varied  application 
rates,  the  maximum  is  used  and  the  application 
rate  range  placed  in  the  abstract  following  the 
information  about  the  paper. 

10.  Purpose  of  the  system  — the  choices  are 
treatment,  irrigation,  recharge,  or  general  (if 
multipurpose). 

11.  Year  of  initiation  — the  calendar  year  in 
which  operations  began,  if  available;  otherwise 
N/A  is  used. 

Notice  that  in  items  4,  9 and  11  a series  of 
numbers,  a range  of  values  or  both  may  be 
entered.  For  instance,  the  following  is  an  accept- 
able input  for  parameter  11  (year  of  initiation); 
1967, 1932, 1951-1956, 1926.  The  numbers  don't 
have  to  be  in  any  particular  order  except  when  a 
range  of  values  is  entered  (as  in  1951-1956 
above),  in  which  case  the  first  number  must  be 
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Tabic  II.  Location  abbreviation*. 


Two-tetter  state  abbreviations 


Alaska 

AK 

Alabama 

AL 

Arizona 

A Z 

Arkansas 

AR 

California 

CA 

Colorado 

CO 

Connecticut 

CT 

Delaware 

DE 

District  of  Columbia 

DC 

Florida 

FL 

Ceorgia 

CA 

Cuam 

CU 

Hawaii 

HI 

Idaho 

ID 

Illinois 

IL 

Indiana 

IN 

Iowa 

IA 

Kansas 

KS 

Kentucky 

KY 

Louisiana 

LA 

Maine 

ME 

Maryland 

MD 

Massachusetts 

MA 

Michigan 

Ml 

Minnesota 

MN 

Mississippi 

MS 

Missouri 

MO 

Montana 

MT 

Nebraska 

NE 

Nevada 

NV 

New  Hampshire 

NH 

New  lersey 

N| 

New  Mexico 

NM 

New  York 

NY 

North  Carolina 

NC 

North  Dakota 

ND 

Ohio 

OH 

Oklahoma 

OK 

Oregon 

OR 

Pennsylvania 

PA 

Puerto  Pico 

PR 

Rhode  Island 

Rl 

South  Carolina 

SC 

South  Dakota 

SD 

Tennessee 

TN 

Texas 

TX 

Utah 

UT 

Vermont 

VT 

Virginia 

VA 

Virgin  Islands 

VI 

Washington 

WA 

West  Virginia 

WV 

Wisconsin 

Wl 

Wyoming 

WY 

British  Columbia 

BC 

Union  of  Soviet  Socialist  Republic 

USSR 

United  States 

USA 

less  than  the  second.  In  running  the  program  the 
user  first  selects  the  desired  search  parameters 
by  typing  in  their  numbers.  For  example,  a 
response  of  3,  8,  11  would  tell  the  machine  to 
search  by  system  type,  application  mode  and 
year  of  initiation. 

After  this  the  computer  will  then  ask  for  the 
information  for  each  parameter.  Note  that  the 
responses  in  parameters  3,  5,  6,  7,  8 and  10  may 
be  abbreviated  to  the  first  three  letters. 

Example  1 

Problem:  Design  a land  treatment  system  for  a 
city  of  20,000  (1980)  in  Maryland  Most  of  the 
wastewater  is  municipal. 

1.  Assume  that  we  would  like  to  design  a 
system  for  a town  or  city  in  Maryland  The  pro- 
jected population  is  20,000  (in  1980)  If  we 
assume  that  each  person  uses  100  gal./day,  the 
flow  rate  for  this  town  would  be  2.0  mgd 

2.  The  searching  parameters  in  this  case  would 
be  the  location  (Maryland)  which  is  parameter  2 
and  the  flow  rate  (1-3  mgd),  which  is  parameter 
4.  The  computer  printout,  using  SEARCH  and  the 
indicated  parameters  2 and  4,  is  presented  in 
Table  III 

3.  If  the  information  from  the  computer  print- 
out is  not  sufficient  for  the  design  purposes,  the 
associated  literature  should  be  obtained  and  ex- 
amined 

Example  2 

Problem:  What  are  the  design  parameters  of 
the  systems  in  Australia  using  the  overland  flow 
method  of  land  treatment? 

The  searching  parameters  would  be  the 
Australia  location  (2),  and  the  treatment  type  (7). 
The  printout  obtained  from  this  search  is 
presented  in  Table  IV 

PROGRAM  UPDATE 

UPDATE  is  the  program  used  to  place  new  in- 
formation into  the  system  data  bank.  The  pro- 
gram has  two  sections:  ADD,  which  is  used  to 
put  new  systems  in  or  add  papers  to  systems 
already  stored,  and  REVISE,  which  is  used  to 
change  existing  information  Figure  2 is  a flow 
chart  of  this  program. 

ADD 

Some  preparation  is  required  before  going  to 
the  computer  to  add  a new  system.  For  each 
system  the  following  information  will  be  re- 
quested and  should  be  known  in  advance. 
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Table  III.  A computer  printout  including  existing  systems  in  Maryland,  wastewater  flow  rate  less  than  3 mgd. 


SYSTEM  NAME 

LOCATION 

SYSTEM 

FLOW  WASTE  TYPE 

ground 

TREATMENT 

APPLIC. 

Appuc.  purpose 

TYPE 

RATE 

coven 

TYKE 

MODE 

RATE 

a.a.d. 

in./wk . 

BERLIN  HO  OPERATING  0.9  INDUSTRIAL  N/A  N/A  SPRAY  N/A  TREATMENT  1953 


WESTMINSTER  MD  OPERATING  2 INDUSTRIAL  N/A  N/A  N/A  N/A  TREATMENT  1972 


Table  IV.  A computer  printout  for  systems  in  Australia  utilizing  the  overland  flow  method. 


SYSTEM  NAME  LOCATION  SYSTEM  FLOW  WASTE  TYPE  GROUND  TREATMENT 

TYPE  RATE  COVER  TYPE 


APPLIC.  APPLIC.  PURPOSE  DATE 

MODE  RATE 

in. /wk • 


MELBOURNE  AUSTRALIA  OPERATING  150  MUNICIPAL  GRASS  ALL  BOTH  N/A  TREATMENT  1097 

AUTHOR-SEABROOK » B . L . 

TITLE-LAND  APPLICATION  OF  WASTEWATER  IN  AUSTRALIA*  THE  WERRIBEE  FARM  SYSTEM*  MELBOURNE.  VICTORIA 
PUBLICATIOW-EPA*  27PP. 

PUB.  DATE-MAY  1975 

ARE  USING  CROP  IRRIGATION*  OVERLAND  FLOW  AND  A LAGOON  SYSTEM  FOR  TREATMENT. 

AUTHOR -SEARLE * S . S AND  C.F. KIRBY 
TITLE-WASTE  INTO  WEALTH 
PUBl JCAT ION- WATER  SPECTRUM.  P.  15-21 
PUB.  DATE-1972 

AUTMOk-NEFNEY  *D. 

TtTIF-TME  WERRIBEE  (MELBOURNE.  AUSTRALIA)  SEWAGE  TREATMENT  F.ARMJ  REPORT  OF  A VISIT  BY  DENNIS  KEENEY  ON  DEC.  9.1V7ft 

PUBLICATION- 

PUB.  DATE- 

AIJTHOR- JOHNSON. R. D.  * R.L.  JONES.  T . D.HINESLY*  AND  D.J.  DAVID 

TITLE-SELECTED  CHEMICAL  CHARACTERISTICS  OF  SOILS.  FORAGES.  AMD  DRAINAGE  WATER  FROM  THE  SEWAGE  FARM  SERVING  MELBOURNE.  AUSTRALIA 
PUBL I CAT  I ON- DEFT.  OF  ARMY.  CORPS  OF  ENGINEERS.  S.PP. 

PUB.  DATE-JAN.  197. 


1 System  name  — see  Table  I for  a list  of  ab- 
breviations 

2 System  location  — see  Table  II  for  a list  of 
abbreviations 

3 System  type 

4 Flow  Rate 

5.  Waste  type 

6 Ground  coyer 

7.  Treatment  type 

8 Application  mode 

9 Application  rate 

10  System  purpose 

11  Year  of  initiation 

It  should  be  noted  that  all  of  the  above  11 
questions  must  be  answered  and  that  the  only 
acceptable  answers  to  questions  3,  5,  6,  7,  8 and 
10  are  those  that  are  given  in  the  Searching 
Parameters  For  questions  4,  9 and  11  N/A  may 
be  entered  if  the  information  is  unknown.  In  ad- 
dition, if  reports  are  available,  the  following  in- 
formation should  be  supplied  for  each  one: 


1 Author(s)  — using  the  following  format  Last 
name  of  the  principal  author  first,  followed  by 
his  or  her  initials,  then  followed  by  the  other 
authors'  initials  and  last  names  (for  example: 
Iskandar,  I K.,  R S.  Sletten,  D C.  Leggett  and  T F 
lenkins) 

2 Title  of  the  paper 

3.  Publication  in  which  report  appeared,  in- 
cluding volume  number  and  pages  if  applicable 

4 Publication  date:  Month  (if  known)  and 
year. 

5.  Brief  abstract  describing  the  paper  (if 
desired) 

To  add  a paper  to  a system  which  is  already 
stored,  the  name  and  location  of  that  system 
must  be  given  The  computer  will  then  print  out 
the  system  data  and  ask  if  the  correct  system  is 
described  If  the  wrong  data  appear,  "No" 
should  be  entered  and  the  computer  will  print 
out  different  system  data  which  have  the  same 
system  name  and  location  Once  the  correct 
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system  has  been  found,  the  computer  will  ask 
for  the  number  of  reports  and  then  proceed  to 
ask  for  information  on  the  reports  as  in  the 
previous  section 

REVISE 

The  REVISE  segment  is  used  to  make  changes 
to  both  the  system  data  and  report  information 
already  in  the  data  bank  When  using  REVISE  on 
system  data,  the  first  input  is  the  name  and  loca- 
tion of  the  system  that  is  to  be  changed  The 
computer  will  then  give  the  number  of  different 
systems  it  has  under  that  name  The  parameter 
code  number(s)  that  one  wishes  to  change  are 
then  input  The  machine  will  then  ask  what  new 
information  is  to  be  added  for  each  parameter 
Finally  for  each  of  the  different  systems  the 
computer  will  print  a list  of  all  the  parameters 
and  then  ask  whether  the  changes  should  be 
made  permanent  to  that  system  (by  asking 
LOOKS  O K (YES  or  NO))  Thus,  by  this  method, 
the  user  isn't  forced  to  make  the  same  change  to 
all  systems  with  identical  names. 

To  change  information  in  a paper,  it  is 
necessary  to  input  the  name  and  location  of  the 
system  The  computer  will  then  print  out  the 
system  data  and  ask  for  confirmation  If  these 
data  are  not  given,  the  computer  will  print  out 
the  title  and  author  of  the  first  paper  listed  for 
that  system.  If  that  is  not  the  paper  on  which 
changes  are  to  be  made,  NO  should  be  answered 
to  the  question  CORRECT  PAPER?  The  com- 
puter will  then  continue  to  repeat  giving 
AUTHOR,  TITLE  and  asking  for  confirmation  un- 
til approval  is  given  or  until  it  runs  out  of  papers 
After  the  correct  paper  has  been  located,  the 
computer  will  print  out  five  questions: 
AUTHOR:',  TITLE',  PUBLICATION:',  PUB 
DATE:',  and  ABSTRACT:'  For  each  question,  if  a 
change  is  to  be  made,  the  correct  information 
should  be  entered  To  delete  an  abstract,  the 
space  bar  should  be  pressed  once,  then  the 
"return"  key  The  return  key  is  pressed  if  no 
change  is  to  be  made 

Restrictions  and  conventions 
when  using  UPDATE 

The  program  is  fairly  straightforward  to  use, 
however,  the  following  points  should  be  noted: 

1 Length  of  system  and  location  names  When 
entering  the  name  of  the  system  and  the  name  of 
the  state  or  country  in  which  it  is  located 
(parameters  1,  and  2),  the  user  should  remember 
that  each  may  not  exceed  14  characters  in 


length.  The  machine  will  protest  if  a name  is 
longer  and  will  ask  that  it  be  retyped  This 
restriction  only  applies  to  system  parameters  1 
and  2 

2.  Length  of  system  type,  etc  As  a time  saving 
step,  parameters  3,  5,  6,  7,  8 and  10  may  be  ab- 
breviated to  their  first  3 letters.  For  instance,  in- 
stead of  typing  SLOW  INFILTRATION  in 
response  to  the  machine's  request  for  TREAT- 
MENT TYPE',  SLO  can  be  typed 

3.  Paper  information.  The  only  restriction  on 
entering  proper  information  is  that  quotation 
marks  may  not  be  used.  The  computer  will  ask 
that  the  line  be  retyped  if  it  finds  one  If  a quota- 
tion mark  is  necessary,  an  apostrophe  should  be 
used  instead. 

4.  Stopping  the  program  The  normal  method 
of  stopping  the  program  is  to  hit  the  return  key 
when  the  machine  types  SYSTEM  (in  the  ADD 
mode)  or  to  type  NO  when  the  computer  asks 
WANT  TO  REVISE  MORE  SYSTEMS'  (in  the 
REVISE  mode).  This  causes  the  machine  to  go  in- 
to pn  end  routine  which  adds  the  new  changes  to 
the  data  bank.  A more  drastic  means  of  ter- 
minating the  run  is  available  through  the 
"break"  key  in  the  upper  right-hand  corner  of  the 
keyboard.  This  button,  however,  should  only  be 
used  in  case  of  dire  need  — if  for  example  the 
program  goes  berserk  and  starts  spitting  out  gar- 
bage This  operation  is  risky  because  it  interrupts 
the  computer  before  it  can  go  into  its  end 
routine.  What  will  be  stored  in  the  data  bank  is 
unpredictable  and  everything  done  in  the  cur- 
rent run  may  be  lost  However,  information  from 
previous  runs  is  safe.  In  any  case,  if  the  break 
key  is  used,  the  data  files  should  be  checked 
before  any  more  updates  are  attempted 

CRREL  Internal  Report  561  lists  existing 
systems,  their  design  parameters  and  related 
publications  organized  alphabetically  according 
to  the  state  for  the  domestic  systems  and  ac- 
cording to  the  country  name  for  the  foreign 
systems.  It  was  not  possible  to  review,  check  and 
correct  all  the  errors  Therefore  the  information 
should  be  checked  out  before  using  it  Informa- 
tion in  this  list  can  be  used  for  planning  and 
design  purposes  if  the  computer  file  is  not  ac- 
cessible 
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APPENDIX  A:  COMPUTER  LISTING  OF 
PROGRAM  SEARCH 

• • MH  ••€••••  IHH  • IH  WtH  MM  M#  • • • 

• • • • • t M • • I • t M • • ••••••••M 

• • • t • • M*  IMt  C • • *H  MM  • • « « « •«  • 


• • MM  M#  • M#  M#  M#  • Ht  MM#  • • • • #M  • • • 

SEARCH 1 11/09/78  1219:39  page  2 


1010  MARGIN! 133) 

1020  DIM  S(10).  CB(  10>>  YB(20).  V(40.2).  C<10>.  S*(  10.  7).  LB(  1 1 ) 

1030  DIM  BB  ( 900 > « F ( 900 ) . L ( 900 ) . R < 900 ) . X ( 900 ) 

1040  DIM  D9( 900) 

1090  DIM  09(10.  10) 

1060  MAT  Y-ZER 

1070  DIM  V9( 10). WB( 10).  X9( 10).  Z( 10) 

1060  MAT  C-ZER 
1090  MAT  L-ZER 
1100  MAT  R-ZER 
1110  MAT  C9-NUL9 
1120  MAT  V9-MUL4 
1130  MAT  S4-NUL9 

LET  K“0  'indicator  variable  to  show  whether  a search  has  failed 

1190  LET  El«2  'no.  of  elements  per  record  in  file  #1  (. .NAM) 

1160  LET  E2*>10  'no.  of  elements  per  record  in  file  #2  ( . . NUH) 


1190  REM  CHECK  TO  SEE  WHAT  FILES  WE  SHOULD  USE 
1190  PRINT  -FOREION  OR  DOMESTIC-. 

1200  DO 

1210  INPUT  Z9 

1220  LET  Z9  - 8EG9<  Z9.  1,  3 ) 

1230  SELECT  CASE  Z9 
1240  CASE  "DOM- 

1290  FILE  #1  DOM  NAM"  'Master  file  containing  string  information 

1260  FILE  #2  " DOM  NUM" 

1270  FILE  #3  ".  DOM  PAP"  'aester  file  containing  all  paper  information  (term  foratt) 

1280  CASE  "FOR" 

1290  FILE  #1  - FOR  NAM- 

1300  FILE  #2  " FOR  NUM" 

1310  FILE  93  - FOR  PAP" 

1320  DEFAULT 

1330  PRINT  -INCORRECT  FORMAT  REENTER—  "* 

1340  CONTINUE 

1390  LOOP  UNTIL  Z6  • "DOM“  OR  Z4  - "FOR" 

1370  FILE  #4:  -e- 

PILE  #9.  -a-  'working  file  to  store  locations  of  found  systems 

1390  'EJFCT 


BEARCM1  11/09/78  12:19:39  MM  3 


1400 

1410  REM  PROCEDURE  TO  READ  TA1  SETTINGS  FOR  OUTPUT  FORMAT 
1420  FOR  C-l  TO  10 
1430  READ  T(C ) 

1440  NEXT  C 

1490  DATA  19.  29.  39.  49.  99 

1460  DATA  69.  89. 94.  102.  119 

1470 

1490  REM  ESTABLISH  SEARCH  PARAMETERS 
1490  LET  LB(1)--NAME  OP  SYSTEM- 

1900  LET  Ld( 2) ■"LOCATION  (NAME  OP  STATE  OR  COUNTRY)" 

1910  LET  L#(3»--TYPE  OP  SYSTEM  (PROTOTYPE.  OPERATING)" 

1920  LET  L*(4)--FL0W  RATE  (MILLIONS  OP  GALLONS  PER  DAY.  ZERO  IP  N/A)" 

1930  LET  L#(9)--TYPE  OP  WASTE  (MWICIPAL.  INDUSTRIAL.  AGRICULTURAL.  GENERAL)" 

1940  LET  LB(6)--CMARACTERIBTIC  OROUND  COVER  (GRASS.  TREES.  VEO  -CROP.  FORAGE.  NONE.  N/A)" 
1990  LET  L#(7)«"TREATfCNT  TYPE  (SLOW  INPILT  . RAPID  INPILT  . OVERLAND  FLOW.  ALL.  N/A>" 
1960  LET  LB(8)--APPLICATI0N  MODE  (SPRAY.  PLOOO.  BOTH.  N/A)" 

1970  LET  LB(9)«"AP PLICATION  RATE  ( INCHES  PER  WEEK  ZERO  IP  N/A )" 

LET  Lf < 10) -’PURPOSE  OP  SYSTEM  ( TREATMENT.  IRRIGATION.  RECHARYGE.  GENERAL >" 

1990  LET  LB(U)--YEAR  OP  INITIATION" 

1600  'EJECT 
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1 1/09/78 


12  19  43 


Ml*  « 


1410  REM  ESTABLISH  ANSWERS  TO  PARAMETERS  43. 3. 6. 7. 8. 10 
1620  READ  S4(3. 1 ).  S4<3.2).  84(3.3) 

1630  DATA  “2".  -PROTOTYPE".  "OPERATING" 

1640  READ  94(9.  1).  84(9.2).  84(3.3).  64(9.4).  S4(3.9> 

1690  DATA  "4".  "MUNICIPAL".  “INDUSTRIAL".  "AGRICULTURAL".  “GENERAL" 

1660  READ  S4(6.  1).  84(6.2).  84(6.3).  84(6.4).  84(6.9).  84(6.6).  84(6.7) 

1670  DATA  "6".  "GRASS".  "TREES".  "VEG  -CROP".  “FORAGE".  "NONE".  "N/A" 

1680  READ  84(7.  1).  84(7.2).  84(7.3).  84(7.4).  64(7.9).  84(7.6) 

1690  DATA  "9".  "8L0M  II^ILT  ".  "RAPID  INFILT  ".  "OVERLAND  FLOW".  "ALL".  "N/A" 

1700  READ  84(8.  1).  84(8.2).  84(8.3).  84(8.4).  84(8.9) 

1710  DATA  "4".  "SPRAY".  "FLOOD".  "80TH".  "N/A" 

1720  READ  S4(  10.  1).  84(10.2).  84(10.3).  64(10.4).  S4(10.9) 

1730  DATA  "4".  "TREATMENT".  "IRRIGATION".  "RECHARGE".  “GENERAL" 

1740 

1790 

1760  IF  ( INT(  ( LOF ( #2 ) - D/10  ) O (L0F(82>  - D/10  ) 

1770  THEN  PRINT  "START -UP  ERROR  FILE  42  ( NUM)  NOT  OF  CORRECT  LENOTH  " 

1780  STOP 

1790  CONTINUE 
1800 
1810 

1820  REM  INPUT  6 CHECKOUT  OF  SEARCH  PARAMETER  NUMBERS 


SEARCH 1 


11/09/70 


ta.  is  w 


MM  4 


RCH  SYSTEM  WC,  WASTE  TYPE.  OROUND  COVES.  ETC 

3.  9.4.  7.  S.  tO 

LET  Z"«(X>-1  up  nuWtring  lyltM  cMflUkli  with  .—.HUH 


INPUT  A*  'input  iMrck  »«r«Mttr 

LET  A10-SE09(A0.  0.  3)  'alkrivtat*  it  to  tts  first  3 Isttsr. 

LET  X1-UAL(SS(S(X). I ) )♦!  'location  of  lost  accsptakls  onswor 

LET  X2-2  'location  of  first  posit  la  ansstr 

00 

IP  A10-BE00(B9(8(X>.  X2>.0.  3)  THEN  LET  C(Z)-X2-1  'if  onswor  is  accoptal 
LET  X2-X2M 

LOOP  UNTIL  X2>XI  OR  C(Z)>0 

IF  C(Z)-0  'if  no  accoptatls  ansoor  was  found 

THEN  PRINT  -NO  OUCH  SPECIFICATION  AO: "<  AS 
PAINT  -THE  POSSIBILITIES  ARE  * 

FOR  X2-2  TO  Xt 

PRINT  - •*  S0<8( X > > X2 > 'pivo  tts  list  of  oc'sptatlo  answors 

«XT  X2 

PRINT  -TRY  RETYPINO  IT"* 

CONTINUE 
XV  UNTIL  C(Z)>0 


if  answor  is  accoptatlo.  storo  its  nvskor  coda 


■ on mod  in  ENOCHECK  (2". 


'•os  fits  SO  aspiy  ot  tts  start  of  this  routino? 
'if  not.  pick  o sp stoa  location  fro*  filo  04 
'rosot  . NUM  to  pick  up  that  spstoa 


RESET  02:0  'rosot  . NUN 

LET  F-2  'filo  no  to  to  oiaainod  in  ENOCHECK  (2*. NUN) 

DO 

IF  FtOt  'was  filo  04  saptp  at  tts  start  of  this  routino? 

THEN  INPUT  04: P 'if  not.  pick  o spstoa  location  fro*  filo  04 

RESET  82(P-l)o€2  'rosot  . NUH  to  pick  up  that  spstoa 

CONTINUE 

READ  02:  D<1>.  D<2>.  DO).  D<4).  DO).  0(4).  D<7).  D(8).  D(0).  D(IO)  'rood  out  oil  spstoa  paraaatars 

IF  C(Z)-D(Z)  THEN  PRINT  09:  L0C<02)/E2  'if  o natch  on  tts  paraastor  vou'ro  soarctinp  undor.  storo  its  location 

PERFORM  ENOCHECK  'chad  to  soo  if  dona  (if  so  lot  8-0) 

LOOP  WHILE  8-i 

PERFORM  RESET  'du*p  rosults  fro*  filo  09  into  04  fcrosot  04 

'EJECT 


i'HIS  PAGE  IS  BESI  QUALITY  PRAGIICAB^*| 
FROM  COPY  FURBISHED  TO  DOC  


«EH  FLOW  RATE.  APPL1C  RATE.  DATE 
: 4.  0.  | i 

I"?***-1  "w-tarinp  spats*  co*potaklo  uith  . NUH 

hIt  «*  ,fil*  "°  t#  M o«**inod  In  ENOCHECK  (2- NUH) 

LET  vt-iaai  ontor  all  tho  soars,  rats.,  otc  that  mill  »a  usod  for  soarctinp 

FOR  IiIrTn  vi  .?*  #!  *i,t4"ct  •"trios  (siaapls  1920.  1930-1992  •ould  to  2) 

irr  alanllvs,...  - - .l0°P  t0  •ntrimm  into  distinct  nuatsrs 

7,  F-POStVOlXI),  - .0)  position  of  dost  if  prosont  (as  in  1930-1992) 

,r  pX>  'if  ttoro  is  a dash 

T)«N  LET  C0-RE09(Y0(X1).0.P-1)  'first  nuatsr  (strinp  valuo) 

!”fl  LEN(V0(X1 ) ) ) 'socond  nu*tor  (strinp  valuo) 

LET  C-VAL(CO)  'first  nu*tsr  (nuasric  valuo) 

LET  D— VAL( DO ) 'socond  nuatsr  (nuasric  valus) 

LET  V( XI. 1 )— C 'first  nuatsr 

I!!!'?!!0!?  'dlfforonco  ttaoon  first  4 socond  nuators 

CONTINUE  ***** * ,"VAL< T0(X1 ) ) 'ttors  is  onlp  ons  valuo.  convsrt  to  nuareric 

EXT  XI 


'rosot  . NUH 


M saptp  ot  tto  start  of  this  routino? 

. __  '4#  M«k  • opstaa  location  froa  filo  #4 

RESET  S3: (P-1 )oE2  'rosot  NUH  to  pick  up  that  ssstsa 

CONTINUE  W 

0<a,•  B,3,>  »'*'•  »'?>•  #«•>.  DI*>.  0(10)  >..«  ..t  all  |irMaiIM 

00  HMILC  C 7"0  AMO  II  <•  VI  '***  ,0  • **"<  <0  InOIc.ta.  no  find 

'I'll  2*11*''  v*!“*  !r*-  — MU"  *•  '•••  •*—  »*•  “«•'  *•»"< 

TP«N  PRINT  09  L0C(S2)/E2  'stars  its  location 
LET  C7— l 'rosot  flop  varftotlo 

ELSE  LET  XI  • XI  ♦ I 
CONTINUE 

ELSE  LET  Xl-xmi  'othorwlss  fo  ts  tts  nsit  valus  msufts* 

CONTINUE  F 


PERFORM  ENDCt«CR 
LOOP  WHILE  S-l 


'duap  rssults  froa  filo  09  into  filo  #4  4 rosot  04 


3010  CONTINUE 
3020  LET  X-XM 
3230  LOOP  UNTIL  X>N  OR  K-l 
3040  'EJECT 


'po  to  tts  nsit  paraaotsr 

'R«l  indicotss  a soarct  failod  4 thus  torainatos  propra 


SEARCH t 


11/09/7S 


ia  ao: j» 


Ml*  • 


3850  *E*  THIS  SECTION  ORDERS  THE  RAIOOH  ACCESSS  ADDRESSEBS  OF  T>«  FOUND  SVSTCMBt  TO  THIS  POINT 

3340  REH  UNORDERED  AND  IN  FILE  S4>  T ADDRESSERS  ARE  REORDERED  ALPHABET I CALL V ACCORDING 

3370  REH  TO  THE  STATE  (OR  COUNTRY)  OF  THEIR  RCSPCCTIOME  SYSTEMS  T»«  OROERINS  PROCESS  IS 

3280  REH  AC HE I VCD  BY  A STANDARD  BINMIV  TREE  SORT 

33*0  LET  M-O 

3300  BO  WHILE  NODE  M 

3310  INPUT  S4  X 

3330  RESET  SI:  (X-l)oCl 

3330  READ  #1:  C1S.CS 

3340  LET  S4HI 

3390  CALL  "BILDTREE":  BSO.  LO.  R<  ).  CS.  N.  X.  X(  > 'hull*  an  ilpMItlUil  l«  *rMrM  traeUaft  ean<faftl»ar<r  laltt  eon) 

3340  LOOP 

3370 

3300  

33*0  CALL  "TREEBORT"  LO.K).  1.  I.FU.K)  'ltd*  CMfUMI  In*  ■(>  It  Irt#  ttrl.  rtlurn  Ikt  or4er«4  vector  f<) 
3400  'EJECT 


1UIS  PAGE  IS  BEST  QUALITY  PSUCtlSMM 
mm  OOPY  FURBISHED  TO  LEI  Q 
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3410  REH 
3420  REH 
3430  REH 
3440  REH 
3490  HAT  L-ZER 
3440  HAT  R-ZER 
3470  HAT  D4-NUL4 
3480  LET  L<0)-0 
34*0  LET  R <0 > ■© 

3900 

3910  LET  1-0 
3920  LET  A-0 

3930  PERFORM  OCT  NAHEOATA 
3940  DO  UNTIL  I >-"X" 


F 18  A VECTOR  OF  RANDOM  ACCESS  ADDRE88E8S  OF  FOUND  SYSTEMS.  ALPHABETICALLY  ORDERED 
BY  STATE  IN  THIS  SECTION.  THE  ADDREB8ES8  OF  THE  SYSTEMS  WITHIN  EACH  8 TATE ARE 
ORDERED  ALPHABETICALLY  A STANDARD  BINARY  TREE80RTI8  AGAIN  USED  FOR  THE 
OR DERI NO  PROCESS  T 


3990 

3940 

3970 

3980 

39*0 

3400 

3410 

3420 

3430 

3440 

3490 


DO 


t tyilta 

' tnt  of  file  Mrltr 


'kutU  an  alM*k*tlctll|  trtftrttf  IrtidtH  ien<)atktr<rl|kl  con) 


CALL  "BILDTREE"  D4<  ) . L<  ).  R(  ).  Dt<  I ).  I.  X.  X<  ) 

PERFORM  OCT  NAME DATA 

LOOP  WHILE  B4<I)-B4(I-1)  '1  a loop  until  all  tyilm  of  tfco  mm  atato  Sava  kttn  rea4 

IP  I-t )<>B4( 1-2)  'If  thoro  la  anty  ana  tytlto  far  Ika  atata 

THEN  LET  F< I -1 >-x ( 1-1 ) 'thin  4o  not  ktlktr  aortlnf  traa. ttara  la  inly  ana  lytlto  fra*  tKat  atata 

FL8C  LET  L«t*l  'alaa  un. loaf  Ikt  traa  coap*ae4  af  all  i«tl«ai  In  ana  atata 

LET  H-AM 

CALL  "TRCE80RT"  LO.  R<  ).  H.  L.  FO,  XO 
CONTINUE 


3440  LET  A-I-I  'aava  tha  vector  F a44reaa  of  t*e  laat  aft  in  a partii 

3470  HAT  L-ZER  > 

3480  HAT  R-ZER 

34*0  LET  L ( 0 > -O 

3700  LET  R(0>— O 

3710  LET  D*( 1 )•"  - 

3720  LOOP 

3730 

3740 

3790  REH  THE  VECTOR  OF  ALPHABETICALLY  ORDERED  AOORCSaCB  ARC  RCAO  BACA  INTO 

3740  REH  FILE  84 

3770  SCRATCH  84 

3780  FOR  A— I TO  N 

37*0  PRINT  84  F(A) 

3800  NEXT  A 
3810  RESET  84 
3820  'EJECT 
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3640 

3630 

3660 

3670 

3060 

3690 

3900 

3910 

3920 

3930 

3940 

3990 

3960 

3970 

3960 

3990 

4000 

4010 

4020 

4030 

4040 

4090 

4060 

4070 

4060 

4090 

4100 

4110 

4120 

4130 

4140 

4190 

4160 

4170 

4160 

4190 

4200 

4210 

4220 

4230 

4240 

4290 

4260 

4270 

4260 

4290 

4300 

4310 

4320 

4330 

4340 

4390 

4360 


REM  READOUT  OF  RESULTS 

LET  V-0 

LET  V9-0 

IF  AOO 

THEM  FAINT 

RRINT  -DO  YOU  WISH  A 
INPUT  R« 

PRINT  CHRP < A8C ( FF ) ) 


4370 

4360 

4390 

4400 

4410 

4420 

4430 


MM  10 


'count  of  lino*  (olroofy  print**  )) 
'count  of  linoo  to  to  print#* 


OF  AVAILABLE  PAPERS" , 
'for*  foo* 


REM  PRINT  HEAOCRS 
PRINT 

PRINT  "SYSTEM  NAME".  TAIlTUMi  "LOCATION".  TAB(T(2)>.  "SYSTEM"! 


PRINT  TAB(T(3>). 
PRINT  TAB(T(6>>. 
PRINT  TAB(T(9) >i 
PRINT  TAB<T (2) >. 
PRINT  TAB(T(6>). 
PRINT  TAB(TO)  >i 
PRINT 
PRINT 
LET  V9-7 


FLOW".  TAB  ( T ( 4 ) > . "WASTE  TYPE"!  TAB(T(9))t 
TREATMENT".  TAB(TI7>>.  "APPLIC  ".  TAB ( T <B) ) . "APPL1C. 
TAS(TdO)).  "DATE" 

TABCTOl >»  "RATE".  TAB<T<9>>.  "COVER". 

TYPE".  TAB(T(7)><  "NOOE".  TAB ( T ( 8) > . "RATE" 

•#  f".  TAB( T<S) ).  -in  /»t  " 


REM 


READOUT  OF  FOUNO  SYSTEMS 


00  WHILE  MORE  64 
INPUT  04  X 

61:  IX-DoEl 
02:  (X-I)*E2 
LET  C30-C20 
READ  01  CIO.  C2« 

READ  02  0(1).  0(2). DO).  0(4).  0(9).  0(6).  0(7).  D(8).  0(9).  D(10) 
IF  C300  C20  'if  dot*  (or  country)  of  of joining 

TiCN  PERFORM  LINE 
LET  V9-V9M 
CONTINUE 
PRINT 
PRINT 

LET  V9-V9>7 


REM  REAOOUT  OF  PAPER  INFORMATION 
IF  R0»" YES- 

THEN  IF  0(1 >>©  'D(l)  to  th*  p*p*r  locot ion  p 

THEN  RESET  03 
LET  Vl-O 
DO 

INPUT  03  A.  'A  i*  th#  pop#r  location  poln 

IF  A*0(1) 

THEN  LET  V1-V1M  'count  of  paporo 

INPUT  03  V0(V1).W0(V1>.  XO < VI ) . EO ( VI ) . Z(V1). 
FOR  V3-  I TO  Z ( VI  > 

INPUT  03  UO(t*l.  V3). 


NEXT  V3 

LET  V9-V9#Z(V1 )#9 
ELSE  L INPUT  03  ZO 
CONTINUE 

LOOP  WHILE  MORE  03 
CONTINUE 
CONTINUE 
‘EJECT 


'in  offoct.  a carriage  return 


THIS  PAGE  IS  BUST  QUALITY  FRft00fitAIJ 
13000  OOP  Y FURNISHED  TO  DD.Q 


13 


| 


SEARCH 1 


11/04/78 


12  20  44 


pm*  ia 


4490 


i 

i 

; 


4470 

4400 

4440 

4900 

4910 

4920 

4920 

4940 

4990 

4940 

4970 

49#0 

4940 

4400 

4410 

4420 

4430 

4440 

4490 

4440 

4*70 

4420 


REM  PRINTOUT  OF  FOUND  SYSTEMS 
IF  V4«V>99 
THEN  LET  V-V4 
LET  V4-0 

PRINT  CHR4(ASC(FF>  > 

ELK  PRINT 

LET  V-V-V4 
LET  V4-0 
CONTINUE 

PRINT  CIS*  TA|(T(l))i  C24* 

FOR  X 1*2  TO  10 

PRINT  TAa<T<Xl>>t 
SELECT  CASE  XI 
CASE  3.  S.  10 

IF  D<  XI  XX) 

THEN  PRINT  D<Xl>i 
ELK  PRINT  - N/A  *• 
CONTINUE 
DEFAULT 

PRINT  B4(  X !♦!.  UDIIDIi 
CONTINUE 
NEXT  XI 


foot 

>Mnt  a lin* 


0 olfnal*  that  lit  t«U|«r|  l«  not  «Mllt*kl«  or  unkiiMn 


4440 

4700  PRINT 

4710 

4720  REM  PRINTOUT  OF  PAPERS  OF  FOUND  SYSTEMS 

4730  IF  R4--YES" 

4740  THEN  PRINT 

4790  FOR  V2  - 1 TO  VI 

4740  PRINT  "AUTHOR--.  M4(V2> 

4770  PRINT  "TITLE-"*  V4(V2> 

47D0  PRINT  -PUSL I CATION--.  X4(V2> 

4740  PRINT  -PUS  DATE--*  E4CV2) 

4000 

4010  REM  READOUT  4 PRINTING  OF  ABSTRACT 

4020  FOR  VO-  1 TO  2tV2> 

4030  PRINT  U4(V2.  V3) 

4040  NEXT  V3 

4090  PRINT 

4060  NEXT  V2 

4070  CONTINUE 

4000  LOOP 

4040  ELK  PRINT  "COULDN'T  FIND  ANYTHING  THAT  FITS  THOSE  SPEC  IF1CAT IONS' 

4400  CONTINUE 

4410  PRINT  CHR6<ASC<FF>> 

4420  'EJECT 


IBIS  PAGE  IS  BEST  QUALITY  P'RAlCTT^/Rfil 

raOM  COPY  FURNISHED  TO  DDC  — 


SEARCH 1 11/04/70  12  20  94  »a««  13 


4430  DEFINE  E NOCHECK 

4440  IF  FIOI 

4490  THEN  IF  END  44 

4960  THEN  LET  8-0 

4470  ELK  LET  8-1 

4400  CONTINUE 

4440  ELK  IF  LOC  < 4F  ) >-LOF  ( #F  ) - (F- 1 ) 

9000  THEN  LET  8-0 

9010  ELK  LET  8-1 

9020  CONTINUE 

9030  CONTINUE 

9040  DEFENO 

9090 

9040 

9070  DEFINE  REKT 

9000  SCRATCH  #4 

9040  REKT  49 

9100  DO  WHILE  MORE  49 

9110  INPUT  49  A 

9120  PRINT  S4  A 

9130  LOOP 

9140  SCRATCH  49 

9190  REKT  64 

9160  IF  END  44  THEN  LET  K-l 

9170  DEFEND 

9100 

9140  DEFINE  LINE 

9200  FOR  Xl-1  TO  133 

9210  PRINT  "-■> 

9220  NEXT  XI 

9230  PRINT 

9240  DEFEND  LINE 
9290 

9260  DEFINE  GET  NAME DAT A 
9270  LET  I — I ♦ 1 

9200  IF  1-N*1 

9240  THEN  LET  B4(I»-X" 

9300  ELK  LET  X-FCI) 

9310  REKT  41  (X-DMEl 

9320  READ  41  D4(l).St<I) 

9330  CONTINUE 

9340  DEFEND 
9390  EJECT 


rout  in*  to  toot  far  tha  of  (HUM  OR  NAM)  or  flla  44 

'If  tr wo  than  wa'ra  uomf  filo  44  «•  a to* 

'to*t  whothor  44  it  throufh 
'»•» 

'«• 

'othorvioo.  toot  for  tha  *n<  of  Mootor  Fllo  <F-I  NAM.  F< 

'yoo.  fllo  hao  on4o4 
'no.  It  haon't 


'frocilur*  to  tfw«*  fllo  49  into  44  I rooot  44 
'loo*  to  4 uof  49  into  44 


if  tho  count  of  proititfd  »«itooi  to  froator  than  tho  octuo 
'thon  %*t  tho  f I Of 
' • 1 40  fot  tho  actual  lata 


•hart  a*o 1 1 c ah  1 o 


-2  NUM» 


nuothor 


14 


SEARCH  1 


11/09/78 


12  21  06 


Ml*  »« 


9360  END 
9370  SOB 


BILDTREE**  ■•(  ) . L ( ) . R(  ) . CB.  N.  X.  X<  ) 


'!•  wort  lfii  than  the  word  already  tt  hB(j>? 

'tMn  ftt  the  •Mrm  o f hte  left  ten  of  word  et  t0<j> 
'tet  tlie  fief 


>1  an  tapt 


9360  LET  0-0 

9390  DO 

9400  LET  01 -J 

9410  IF  CB  < BB(O) 

9420  THEN  LET  0-L<0> 

9430  LET  D— 0 

9440  ELSE  LET  0-8(01 

9490  LET  D-l 

9460  CONTINUE 

9470  LOOP  UNTIL  0-0 

9480  LET  BB(N>— CB 

9490  LET  X (N)-X 

9900  IF  D— O 

9910  THEN  LET  L<01)-N 

9920  ELSE  LET  R(J11-N 

9930  CONTINUE 

9940  SUBEND 
9990 
9960 

9970  REH  THIS  SOSPROO  USES  RECURSION  TO  SORT  THE  ALPHA-ORDERED  ADDRESSES  IN  THE  TREE 
9980  SUB  -TREESORT"  L( ).  R< ).  I.  0.  F(  1.  X<  > ' return  the  elf he-ordered  vector  F 

9990  IF  L<  I )>0  THEN  CALL  "TREE80RT"  LO.  HI).  L(  I ).  0.  FO>  XI)  'IF  THERE  IS  A LEFT  SON.  THEN  CALL  THE  SUSPROO 

9600  LET  F(0>-X( 1 1 'thit  it  o terminal  note  (if  e left  ten  eaitte.  it  ie  in  vector  F) 

*4*0  *-FT  O-Or  1 'incrooto  the  count  of  eleaentt  in  voctor  F 

9620  IF  R(I»  0 THEN  CALL  "TREE80RT"  L().R().R(I).o.  F().X()  if  there  It  o rifht  ton.  then  coll  the  tuhfroe 

9630  SUBEND 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXK 
XIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX IIXXIXXXXXXIXXXXXXXXXIIXIXXXXI XIXIIXXIIX1IIXX 


'off  the  new  were  to  the  tree 


'tet  Uf  the  lint  free,  the  father  to  the  new  left  ton 
'tot  uf  the  lint  from  the  father  to  the  now  rifht  ten 


• • 
• • 

• 6 

• • 


• • 
• s 


XXXXIXXXXXXXXXXXXXIXXXXXIIXIXXXIXXXIIIXXXIIXXIXXXIXXXXXXXXXk XX XIXXXXI1III1IIIIXIIIXXIXII1XIIXIXIXX11XIXIXXXIIIIXII 

XXXXXXXXXXXXXXXXXXXXXX XXXIXXXXXXXXXIIXXXIXXIIXXIXXXIXXXXXXXIXIIX XXXXXXXIXXXXX1XXXXXXX IIIXXI1I1IIXI1IIIXIXII1I 


APPENDIX  B:  COMPUTER  LISTING  OF 
PROGRAM  UPDATE 


• t HH  444  • 

4 4 4 4 4 4 44 

• • t • • I 

•HH  4 • I Ht  • 


Ht  NtM  444  • 

• • • • I H 

004  MM  0 0 0 

• • 0 0 0 • 


t 4 MM  MR  • 444  444  444  • 


4 4 RRRR  RRRR  RRR  RRRRR 

R R RRM  R R RRRM  R 

RM  R RRM  RRR 


R 


R 

R 

R 

R 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXKXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/XXXXXXXXXXX 

13212*  11/09/76 


UPDATE 1 


11/09/76 


12:31:34  page  2 


1010  ' S* AS I C PROORAM  TO  UPDATE  THE  EX18T1N0  SYSTEMS  FILE 
1020  ' CAN  TYPE  IN  FIRST  3 LETTERS  FOR  ALL  COMMANDS 
1030  ' LONGEST  POSSIBLE  8Y8T  NAMES  V LOCATIONS  ARE  14  CHARACTERS 
1040 
1030 
10*0 
1070 
1000 
1090 
1100 
1110 
1120 
1130 


MARGIN! 133) 

DIM  C4<10>.  C(IO).  S4U0.7).  R(10>.  L4<12>. 
DIM  6(12) 

MAT  C9-NUL4 
MAT  S4-NUL4 
LET  Z4<<HR4<ASC< -)) 


i<12>.  D<10) 


1140 

1130  REM  CHECH  TO  SEE  WHICH  FILE8  WE  SHOULD  USE 
11*0  PRINT  "FOREIGN  OR  DOMESTIC-! 

1170  DO 


'an  adaittodly  roundabout  vay  of  totting  a 


1100 

INPUT  Z94 

1190 

LET 

Z94  - SEC4 < Z94. 

1.  3 ) 

1200 

SELECT  CASE  Z94 

1210 

CASE 

"DOM* 

1220 

FILE  41  " DOM  NAM.  DOM- 

1230 

MARQIN41  13 

1240 

FILE  42  " DOM  NUM. DOM- 

1290 

FILE  43  " DOM 

PAP.  DOM- 

12*0 

MAR0IN43  0 

1270 

CASE 

-FOR- 

1200 

FILE  41  - FOR 

NAM. FOR" 

1290 

MARGIN  41  19 

1300 

FILE  42  * FOR 

NUM. FOR" 

1310 

FILE  43  - FOR 

PAP. FOR" 

1320 

MARGIN  43  0 

1330 

DEFAULT 

1340 

PRINT  -INCORRECT  FORMAT 

1390 

CONTINUE 

13*0 

LOOP  UNTIL  Z94  - "DOM" 

OR  Z94 

•ccoto  Motor  fil*  which  contain*  string  info 


'rand 

'longest  Mratuakla 
'fil#  where  nuatric  Info  on  systea  1*  kept 
' terminal  forMt  fil*  which  contain*  Info  on  paper* 


1370 

1300 

1390 

1400 

1410 

1420 

1430 

1440 

1490 

14*0 

1470 

1400 

1490 

1900 


REENTER  CATAGORY— " 


LET  L9  - LOF  < 42  ) 

IF  < INT < < L9  - 1 >/10  ) <>  < L9  - I )/lO  > 

T*«N  • WJ"  18  MESSED  UP  AMIN  DO  NOT  USE  THIS  PROM  An  UNTIL  IT  IS  FI  JED 

STOP 

CONTINUE 

FILE  44 
FILE  49  -a- 

MARGIN  49  0 
SCRATCH  49 
LET  El -2 
LET  E2-I0 
'EJECT 


'transfers  scratch  filets**  4*low) 

'l*n«th  of  logical  entry  in  NAM 

'length  of  logical  entry  in  ---NUN 


* location) 


17 


UPDATE  1 


1 I / 09/ 78 


12  21  42 


P*6»  3 


RESET  4 1 LOF  < • 1 > 
RESET  42  L0F(42>-1 

READ  42  P 
RESET  42  LOF ( 02>-l 


— NUM  which  i«  the  le*t  peper  location  no  h«nc»0  out 


' REM  PROCEDURE  TO  READ  TAB  SETTINGS  FOR  OUTPUT  FORMAT 
i FOR  C-l  TO  10 
READ  TtC> 

• NEXT  C 

DATA  16-  31.  43.  51.  66  teb  betting* 

DATA  70.  94.  104  114.  12*»  tab  betting* 

REM  ESTABLISH  SEARCH  PARAMETERS 
LET  L*< 1 > "“NAME  OF  SYSTEM- 

LET  t.4  < 2 > ■ "LOC  AT  ION  (NAME  OF  STATE  OR  COUNTRt)" 

LET  L4(3)--TVPE  OF  SYSTEM  (PROTOTYPE.  OPERATING)" 

LET  L4(4)."Fl0U  RATE  (MILLIONS  OF  GALLONS  PER  DAY.  ZERO  IF  N/A)“ 

LET  L4( 3>*"TVPE  OF  WASTE  (MUNICIPAL.  INDUSTRIAL.  AOR I CULTURAL • OENERAl ) - 

LET  L4 ( 6 ) •“CHARACTER  1 ST  I C GROUND  COVER  (ORASS.  TREES  VEG  -CROP.  FORAGE.  NONE.  N/A>" 

LET  L4  ( 7 )•"  TREATMENT  TYPE  (SLOW  1NFILT  . RAPID  INFILT  . OVERLAND  FLOW.  ALL-  N/A>" 

LET  L4 ( 8 ) •" APPL I CAT  ION  MODE  (STRAY.  FLOOD.  BOTH.  N/A>" 

LET  L4 < 9 ) » " APFl I CAT  ION  RATE  (INCHES  PER  WEEK.  ZFRO  IF  N/A)" 

LET  L4( 10) ""PURPOSE  OF  SYSTEM  i TREATMENT.  IRRIGATION-  RECHARYCE.  CENERAl > - 

LET  L4( 1 1 )»“YFAR  OF  INITIATION 

LET  L4( 12 ) ““NO  OF  PAPERS  (0  IF  NONE > “ 

REM  ESTABLISH  ANSWERS  TO  PARAMETERS  43.5.6.7,0.  10 


S4(3.  1 >. 
DATA  "2" 
S4(5.  1 ). 
DATA  ”4". 
S4(6. 1 >. 
DATA  "6" 
S4 ( 7 . I ) . 
DATA  “5". 
S»(8. 1), 
DATA  "4“ 
S4(  10.  1 >. 
DATA  "4" 


S4<3.  2).  Sb  ( 3.  3 ' 

PROTOTYPE".  "OPERATING" 

S4(  3.  2 > • S4 (5.3)  54(3.4).  S4(55> 

"MUNICIPAL-.  "INDUSTRIAL".  "ACRICU 
S4(6.2>.  54(6.3).  54(6.4).  S4(6.5>. 


"MUNICIPAL-.  -INDUSTRIAL".  " AGR  1 CUL  TURAl  “ . GENERAi 
54(6.2).  S4  ( 6.  3 ) . 54(6.4).  S4(6.5>.  S4(6-6>.  S4(6.7* 
"ORASS".  “TREES  '.  "VEG  -CROP".  "FORAGE"  "NONf  ’ • "N/A" 
S4<  7.  2 • • S4  ( 7 . 3 ) . S4(7.4).  54(7,5*.  S4<7.6* 

"SLOW  INFILT  - "RAPID  INFILT  "OVERLAND  FLOW".  ALL" 
S4(0.  2>.  84(6  3).  S4(0.4).  S4<8. 5) 

"SPRAY".  "FLOOD"  "BOTH".  “N/A" 

S4I102).  54(10  3*.  S4(10  4)  S4(10  3> 

“TREATMENT".  "IRRIGATION".  "RECHARGE"  "GENERAL" 


REM  ABREVI ATED  FORMS  TO  BE  USED  IN  OUESTIONS 

READ  M4(l>.  MB  (2).  M4(3>.  MB  (4).  MB  ( 3 > M4(6> 

READ  M4(7).  MB  ( 0 ) . MB  ( 9 > . M4(10».  MB(  11).  M4(12> 

DATA  “SYSTEM".  "LOCATION".  "SYSTEM  TYPE".  "FLOW  RATE".  "WASTE  TYPE".  "GROUND  COVER- 
DATA  "TREAT  TYPE".  “APPL I C MODE".  "APPL 1C  RATE".  "PURPOSE".  "DATE".  "4  OF  PAPERS" 

EJECT  **.  « 

IHIS  PAGE  IS  BEST  QUALITY 

raoM  OOPY  furnished  10  DOG  " 


PRINT  "DO  YOU  WISH  TO  ADD'  NEW  INFO  OR  REVISE  OLD" 


INPUT  14 

LET  14  - S£G4( 14.  1. 3> 

IF  14  <>  “ADD"  AND  14  <>  "REV- 

THEN  PRINT  "INCORRECT  COMMAND  ADD'  OR  REVISE  ". 

CONTINUE 

LOOP  UNTIL  14  - "ADD"  OR  14  - “RfcV" 

IF  I 4« “ADD" 

THEN 

DO 

PRINT  "DO  YOU  WANT  TO  ADD  A SY8TFM  OR  A PAPFR ’ " . 

INPUT  14 

IF  SEG4(  14.  I.  3 ) • "SYS" 

THEN 

PRINT  [>0  YOU  NEED  A LIST  OF  Tm£  cATACORIES". 

PERFORM  ANSWER 
IF  II4--Y" 

THEN  PRINT 

PRINT  "YOU  WILL  BE  ASKED  TO  PROVIDE  THE  FOLLOWING  INFORMATION" 

FOR  11*1  TO  12 

PRINT  " ".  II. L4<  > I - 

NEXT  || 

PRINT  "FOR  CATAwORIES  44.  9 6 H (FlOW  RATE.  APPL1C  RATE- 

PRINT  "AND  YEAR).  IF  THE  INFORMATION  IS  NOT  KNOWN  OR  NOT  APPLICABLE" 

PRINT  "TVPC  A 0 (ZERO)  " 

PRINT  "YOU  WILL  THEN  BE  ASKED  TQ  INPUT  INFORMATION  ON  ANY  PAPERS  " 

PRINT  “DOING  ONE  PAPER  AT  A TIME  THE  MACHINE  WILL  REQUEST  THE  TITLE." 
PRINT  "THE  AUTHOR ( 6 ) PUBLICAltON  WHERE  11  Af REARED.  YEAR  OF  “ 

PRINT  "PUBLICATION  AND  AN  ABSTRACT  " 

PRINT  "WHEN  YOU  ARE  THROUGH  ENTERING  DATA.  HIT  RETURN  WHEN  THE  " 

PRINT  "MACHINE  TYPES  'SYSTEM'  " 

CONTINUE 

PRINT 

PPINT 

DO 

MAT  C-ZER 

LET  X»1  'counter 

DO 

PERFORM  PARAMETER 
LET  |e|+! 

LOOP  UNTIL  *>12  OR  C4(l>*"”  when  12*12  then  P2  lb  returned  bg  Parameter 


IF  C4(  I >>" " AND  HOI  'aieont  that  wO  heve  to  rocori  on  oBBition  ( Itb  noao  I 
THEN  RESET  42  LOP (42)  - I not  null  enf  we  haven't  toon  it  Before  ) 

WRITE  41  C4<  1 ) . C4(2>  'noeie-  then  location 

WRITE  42  P2-  C ( 2 ) ■ C<3>.  C(4>  C<9).  C<*>.  C<7).  C<0>.  C(4).  C(I0> 

WRITE  42  P 
PRINT 
CONTINUE 

LOOP  WHILE  C4( I )>" " AND  H <>  1 terminate  If  either  1 H-l  or  2 C4( I ) lb  null 

CJttT  1# 


UPDATE  1 


11/09/70 


12  21  59 


P*fl*  5 


2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2 630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 


'section  of  cod*  to  odd  p«p*r»  to  rutting 


PRINT  "NAME.  LOCATION  OF  SYSTEM  TO  WHICH  PAPER  IS  TO  BE  ADDED". 

INPUT  C9< 1 > • C9<2> 

PERFORM  HEADERS 
PERFORM  LINE 
PRINT 

PERFORM  FIND  SYSTEM 
IF  119  O “Y" 

THEN  PRINT  “NO  STATION  FOUND  WITH  i0 UR  RfcOUlRtHtNlS  PLEASE  RECHECK  YOUR  DATA  " 
ELSE 

PERFORM  PAP  NUH  **t  up  P2  and  point**  in  NUM 

PRINT  “HOW  MANY  PAPERS  TO  BE  ADDED  TO  THIS  SYSTEM" . 

INPUT  PI 

PERFORM  MANY  PAPER  ADD 
CONTINUE 

CONTINUE 

PRINT  MORE  ADDITIONS". 

INPUT  116 

LOOP  WMUE  SEC*  < 116.  1.  l>  - “ Y " 

'EJECT 


UPDATE  1 


11/09/78 


12  22  14 


M|t  7 


3320 

3330 

3340 

3"  50 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 


*****  64  containi  <froa  Prmtirl  all  tfet 
location!  at  t*«t  mat  t*«  cnttrli 


3690 

3700 

3710 

3720 

3730 


NAT  C-ZER 
LET  X9-1 
DO 

LET  X*S<X9> 

PERFORM  PARAMETER 
LET  X9-X9M 
LOOP  UNTIL  X9>N 
PERFORM  HEADERS 
PERFORM  LINE 
PRINT 
PRINT 

DO  WHILE  MORE  64 
INPUT  A4  X 
RESET  61  ( X-l >#E1 
RESET  62  <X-1)*€2 
READ  61  D6(l),  D6(2) 

?»Dx£.0TOn  D,*,  DI3'-  0,*>’  ■>'»>•  ■>■*>•  0,.,.  0(10> 

SELECT  CASE  S(X2I  Mil  tk.  Oro.ot.a  * 

CASE  1.2  9 ' " »•  *»»  IfttM 

LET  D6(S(X2) >-C6<S<X2> > 

DEFAULT 

LET  D<S<X2)-l»-CtS<X2)-i) 

CONTINUE 
NEXT  X2 

PRINT  D6(l>,  TAKT(l)).  D6<2>. 

PRINt"“LOO*S  rr^ES  OR^'-.*®  ***  *#  **  **'Mt  «*u  *•"* 

INPUT  A26 
IF  A26-“YE8“ 

THEN  RESET  61  <X-l>*El 
RESET  62  ( X-l ) »E2 
WRITE  61  D4(l).  D6<2  * 

ELSE  PRINT  “CHANCE  N0T2MADC  - 3 ^ °<4>‘  °<9>'  °<6>'  D<7,■  0<,>'  D‘*,‘  D<  ,0) 
CONTINUE 
PRINT 
PRINT 
LOOP 

CONTINUE 
SCRATCH  64 
EJECT 


THIS  PAGE  IS  BEST  ««*»« 1 
frpftH  COPY  FUKMSHED  TO  DDC 


3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3800 

3890 

3*700 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 


RESET  61  O 

PRINT  "NAME.  LOCATION  0 T SYSTEM". 

INPUT  C6<1>.C6<2> 

PERFORM  HEADERS 
PERFORM  LINE 
PRINT 

PERFORM  FIND  SYSTEM 
IF  116  O "Y" 

THEN  PRINT  “NO  STATION  FOUND  WITH  VOUR  RFOUIREMENTS 
ELSE 

IF  D(l>  ■ 0 D<1>  i*  * t l«|lpoint*r  in  - — NUM  to 

THEN  PRINT  THERE  ARE  NO  PAPERS  ASSOCIATED  WITH  THAT  STATION 
ELSE 

RESET  63  no*  *••>'0  to  Find  tho  rifltt  pmpar 

SCRATCH  65 
LET  116  - "" 

DO  UNTIL  116  - -Y-  OR  END  63 

INPUT  63  P2.  P16.  P 26.  P36.  P46.  P9 

IF  P2  - D(l> 

THEN 

PRINT  “AUTHOR  ".  P26 
PRINT  -TITLE  *.  Pl6 
PRINT 

PRINT  “CORRECT  ARTICLE". 

PERFORM  ANSWER 
PRINT 

IF  116  - “N“  THEN  PERFORM  DtPP*  3 TO  5 

ELSE 

PERFORM  DUMP  3 TO  5 
CONTINUE 
LOOP 


4090 

4100 

4110 

4120 

4130 

4140 

4150 


IF  I 16  <>  -V- 

T>CN  PRINT  -ALL  PAPERS  FOR  THAT  SYSTEM  HAVE  SEEN  PRODUCED  “ 

PRINT  -NONE  FIT  YOUR  REQUIREMENTS  PLEA8E  REC1CCA  V01*  DATA 

ELSE 

PERFORM  PAPER  INFO 
'EJECT 


20 


UPDATE! 


11/09/ 78 


IS  S3  36 


P«9*  9 


IF  X2  • 1 'then  the  «t«tr«ct  did  not  chan 
THEN 

PERFORM  DUMP  3 TO  3 

ELSE  if  the  ab»tract  chanted.  tee  he 

PRINT  #3  PS.  ". Z*tPl*tZ«. ". 

PRINT  #3  Z**P2*«*.  ZUf3MZ«.  *. 

PRINT  #3  ZtiPmiti  ■,  N (X2-1), 

FOR  II  ' 1 TO  < *2-1 > 

PRINT  *3  Z*%A*<Xl  >«*. 

NEXT  XI 
PRINT  #3 
PRINT 

IF  P9  <>  0 THEN  L INPUT  B3  PS* 

CONTINUE 


DO  UNTIL  END  *3  dump  the  reit  of  the  paper*  to  teeip  f 
L INPUT  *3  PS* 

PRINT  *3  PS* 

LOOP 

SCRATCH  *3  'be  very  careful  There  |oei  the  dote 
RESET  *3  Scratch  file  with  ell  the  date 

DO  UNTIL  END  *3  completely  copy  file  *3  into  file  *3 
L INPUT  *3  T* 

PRINT  *3  T* 

LOOP 


CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 


4310  CONTINUE 
4320 

4330  EJECT 


PRINT  "MORE  REVISIONS". 
PERFORM  ANSWER 
LOOP  WHILE  Il*-"V“ 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
ftKM  COPY  FURNISHED  TO  DDQ  - 


DEFINE  PARAMETER 

IF  X O 12  THEN  PRINT  M*<X>. 


SELECT  CASE  X 


CASE  1.2  'system  name,  location  date 

DO 

LINPUT  C * ( X ) 

IF  LEN(  C*<  X ) ) >14  THEN  PRINT  “TOO  LONG  1 TRV  AGAIN".  *tnn*  can't  be  lon*er  than  14  character* 
LOOP  UNTIL  LENT  C* ( X ) ) < » 1 4 


CASE  3.  3>  6.  7,9.  10  «y«t*m  type,  watte  type,  etc  data 

DO 

INPUT  A*  input  parameter 

LET  A!t-SEO«<A*.  0.  3>  take  fir*t  3 letter* 

LET  X 1>VAL <S*< X, | i) ♦ l number  o*  choice*  plu*  I ( thtp  fir«t  S*  since  it*  not  a choice) 

LET  X2a2  '*tart  with  2nd  S*  became  of  the  above 

DO 

1^  Al*«SEG*(S*< X.  X2>.  0. 3)  THEN  LET  C<X-1>»X2-1  if  a hit  lb  (cored  note  which  on*  it  wa« 

LET  X2-X2M  up  the  choice  counter  by  on* 

LOOP  UNTIL  X2>X1  OR  C(X-1>>0 
IF  C<X-1)»0  'if  no  hit* 

THEN  PRINT  “NO  SUCH  SPEC  IF ICAT ION  AS  "»  A* 

PRINT  "THE  POSSIBILITIES  ARE  ' 

FOR  X2-2  TO  XI 

PRINT  - ",  S*vX.X2> 

NEXT  MS 

PRINT  "TRV  RET VP  I NO  IT“. 

CONTINUE 

LOOP  UNTIL  CCX-11X)  'loop  until  a choice  ha*  been  made 


CASE  4.9.11  'flow  rat*,  app  rate,  year-  Bata 

IfTUT  CIX-I  > 

IF  non 

THEN  LET  C < X- 1 )“INT < !00O*C ( X-l ) ♦ 3)/10O0  'don't  want  more  than  3 decimal 

ELSE  LET  C < X-l )«INT (C I X-l I ) 'only  want  whole  no*  for  year* 

CONTINUE 


EJECT 


21 


UPDATE 1 
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12:  22:  93 


MM  11 


: 12  'paper  <«ta 

LET  M»0  'lla|  variakli  »•  Indicate  aiiitanc*  a#  duplicate  M«taa  <H-l  if  so) 

'routine  to  search  dor  a fanikla  duplicate  ayataai 

LET  Ll«LOC<91>  'aavo  present  position  in  . NAM 

LET  L3HJXt«3)  'aavo  present  paaition  in  . — . MUM 

RESET  #10 
RESET  S2:  0 

DO  WHILE  L0C<RD<L0F<R1 ) AM)  HOI 
READ  91D19.  D29 

READ  R2: D< 1 > . D<2 > . D< 3 > . D< 4) . D< 9 > . D<4> . D< 7) . D<0 ) . D<9>.  0(10) 

IF  CR<  1 >"D1*  AND  C9<2>*D29  'taat  akatkar  syete*  naoa  1 location  aatch 
THEM  LET  H2-1  ‘counter 

DO 

LET  N2-N2+1 

LOOP  UNTIL  N2>10  OR  C<N2)OD<N2)  'teat  ayatoa  type,  flow  rate.  etc.  dor  notches 

IF  N2>10  'id  true  then  there  ia  a duplicate  ayatoo  already  in  the  dilea 

THEN 

LET  H - 1 'eet  d lap  dor  duplicate  eyste*  dound 

CONTINUE 
CONTINUE 
LOOP 

RESET  Rl.-Ll  *aet  MAP  to  ita  original  paaition 

RESET  R2:  L2  'tot  .-—NUN  to  ita  original  paaition 

IF  H ■ 1 'id  we  dound  a duplicate  syste*.  then  error  aecaaoe 

T>CN 

PRINT 

PRINT  "DUPLICATE  SYSTEM  FOUND  ADDITIONS  NOT  MADE  " 

PRINT  -PLEASE  ENTER  PAPERS  TO  EXISTING  SYSTEMS  USING  THE  ‘ADD  PAPER'  SECTION  - 
PRINT 

ELSE  'id  no  duplicate  agate*  dound.  aaaipn  a new  paper  location  no. 

PRINT  NR < X ) j 
INPUT  Pi 
IF  PI  > 0 
THEN 

PRINT 

PRINT  -INFORMATION  ON  PAPER <8>" 

PRINT 

LET  P - P ♦ 1 
LET  P2  - P 

PERFORM  MANY  PAPER  ADD 


'eet  location  no  to  toro  — 


CONTINUE 

CONTINUE 


CONTINUE 

DEFEND 

'EJECT 


THIS  PAGE  IS  BEST  QUALITY  PRACUuhJAI 
FB&U,  COPY  FURNISHED  TO  ^ 


9440  DEFINE  HEADERS 


PRINT 

PRINT 

PRINT  "SYSTEM  NAf«"i  TA8<T<1>>*  "LOCATION")  TAB<T<2)>*  “SYSTEM") 

PRINT  TAS  (TO)).  "FLOW".  TAS<T<4>).  "WASTE  TYPE")  TAB<T<9>>*  "GROUND") 
PRINT  TAB<T<4>>*  "TREATMENT")  TAS<T<7>>)  "APPLIC")  TAS<T<B>>)  "APPLIC 
PRINT  TAi<T<9D)  "PURPOSE".  TA1<T<10>>)  "DATE- 

PRINT  TAS<T<2D)  "TYPE"*  TAB  < T<3)  1 * "RATE"*  TAB<T<9>>*  "COVER"* 

PRINT  TAB  ( T (6>  > ) "TYPE"*  TAB<T<7D)  "MODE".  TAB<T<8>)»  "RATE- 
PRINT  TAB  ( T ( 3 ) > ) "*.  « 4 "*  TAKT  <B)  ) . "in  /wk  " 


9930  PRINT  T AB  < T < A ) > 

9940  PRINT  TAB < TO)  > 

9990  DEFEND  HEADERS 
9940 

9970  DEFINE  DUMP  3 TO  9 
9900  IF  P9  <>  0 

9990  THEN 

9400  L INPUT  93 


IF  P9  <>  O th 

THEN  '*•' 

L INPUT  93  P9» 

PRINT  99  P2)  "."*  Z94P 19429)  ".  ") 

PRINT  99  Z94P294Z9.  ".  ".  Z9AP394Z9) 

PRINT  99  Z94P494Z9)  ".  ")P9*  ".  "*P99 


9490  PRINT  99:  P2*  ".  “*  Z94P194Z9)  ",  ") 

9440  PRINT  99  Z94P294Z9) ". ■* Z94P394Z9) ". 

9470  PRINT  99  Z94P494Z9) P9 

9480  CONTINUE 

9490  DEFEND  DUMP  3 TO  9 

9700 

9710  DEFINE  DUMP  STATION 
9720  FOR  Xl-2  TO  10 

9730  PRINT  TA9<T<X1 > )* 

9740  SELECT  CASE  XI 

9790  CASE  3.  A.  10 

9740  IF  D< XI  >00  '0  ai 

5770  THEN  PRINT  D<X1>* 

9700  ELSE  PRINT  " N/A  "» 

9790  CONTINUE 

9000  DEFAULT 

5010  PRINT  99 ( X 1 ♦ l , 1*D<X1)>) 

5020  CONTINUE 

5030  NEXT  XI 

5040  PRINT 

5090  DEFEND  DUMP  STATION 
9040  EJECT 


than  there  will  he  aore  on  thla  line  od  entry 
because  od  the  abstract 


'du*e  out  the  station  leytbly 


I 
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p«g*  13 


3870  DEFINE  FIND  SYSTEM 

3880  LET  lit  - ••  '«’•••«  our  guaation  flag  for  that  do-loop 

3890  RESET  tl  O 'raaat  our  naaa  filti NAM) 

3900  DO 

3910  READ  tl  00(1).  Dt<2> 

3920  IF  Ct<l>  - Dt  < 1 > AND  Ct<2>  - Dt(2>  'did  wa  find  • station  with  tho  right  naaa? 

3930  THEN 

3940  RESET  *3  < LOC<tl)/El  - 1 > • E2  'chock  to  poo  if  thiP  ip  tho  right  ototion 

3930  READ  #2  D< 1 ) . D< 2) . D< 3>. D(4 ) . D< 3) . D< 6 ) . D( 7 > . D< 8 ) . D< 9) . D< 10> 

3960  PRINT  Dt  ( 1 )•  T Al ( T ( 1 ) ) , Dt<2>. 

3970  PERFORM  DUMP  Si  AT  ION 

3980  PRINT 

3990  PRINT  -CORRECT  SYSTEM". 

6000  DO 

6010  PERFORM  ANSWER 

6020  LOOP  UNTIL  lit  - “Y“  OR  lit  « "N" 

6030  PRINT 

6040  cONT 1 NUE 

6030  LOOP  UNTIL  lit  - "V  >»  LOC(tl)  - LOF(tl) 

606 0 DEFEND  FINO  SYSTEM 
6070 

6000  DEFINE  PAP  NUN 

6090  IF  Oil)  ■ 0 whpn  adding  papar  to  pyotaa  that  praviouslg  had  no  p 

6100  T»«n  ‘wo  aup t rtMNir  to  givo  tho  ogotoa  a papar  pointar 

6110  LET  P • P ♦ 1 

6120  LET  P2  - P 

6130  LET  P3  - L0C(t2> 

6140  RESET  62  P3  - 10 

6130  WRITE  62  P2 

6160  RESET  63  P3 

6170  ELSE 

6180  LET  P3  - D< 1 > 

6190  CONTINUE 

6200  DEFEND  PAP  MUM 
6210 

6230  DEF1IC  LINE 

Ai  30  FOR  II  . | TO  133 

6240  PRINT  "-•* 

6230  NEIT  II 

6360  PRINT 

6270  TsEFENO  LINE 


6290  DEF INE  QUOTE 

6300  PRINT  "QUOTES  ARE  NOT  ALLOWED  IN  TEIT 

6310  DEFEND  QUOTE 

6320 

6330  OEFINE  ANSWER 

6340  DO  '• 

6330  LII*UT  lit 

6360  LET  IlfSEOttllt.  1.  1> 

6370  IF  lit  <>  -V-  AN 

LOOP  UNTIL  lit  - -V 


lit  <> 
OR  lit 


USE  APOS TROPHIES 


•N“  THEN  PRINT  -'YES'  OR  NO' 
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6410  'EJECT 
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Ml*  15 


6420  DEFINE  PAPER  INFO 

6430  'till*  colt  gat*  the  information  on  tho  papar*.  unltti  a null  itrinj 

6440  'l*  input,  in  which  cat*  it  Itavti  tha  vanallt  unchanga*. 

6430 

6460  PRINT  "AUTHOR 

6470  DO 

6480  L INPUT  P* 

6490  LET  M3  » POSi  P*.  It.  0 > 

6300  IF  K3  > 0 THEN  PERFORM  QUOTE 

6310  LOOP  UNTIL  M3  - 0 

6520  IF  LEN<P*J  O 0 THEN  LET  IVR  - Pt 

6330 

6340  PRINT  “TITLE 

6330  DO 

6360  LINPUT  P4 

6570  LET  M3  ■ POS»  P*  /*.  0 > 

6500  IF  M3  > O THEN  PERFORM  QUOTE 

6390  LOOP  UNTIL  K3  - O 

6600  IF  LEN(P*>  O 0 THEN  LET  Pi*  - P* 

6610 

6620  PRINT  "PUBLICATION 

6630  DO 

6640  LINPUT  P* 

6630  LET  M5  - PDS(  P*.  Z*.  0 > 

6660  IF  K5  > 0 THEN  PERFORM  QUOTE 

6670  LOOP  UNTIL  M3  ■■  0 

6600  IF  LEN<  P*  > O 0 THEN  LET  P34  » P* 

6690 

6700  PRINT  "PUB  DATE 

6710  DO 

6720  LINPUT  P* 

6730  LET  K5  - POS<  P4.  It.  0 » 

6740  IF  K5  > 0 THEN  PERFORM  QUOTE 

6730  LOOP  UNTIL  K3  - 0 

6760  IF  LEN(P4>  O 0 THEN  LET  P4*  - P* 

6770 

6700  PRINT  “ABSTRACT  (HIT  RETURN  WHEN  FINISHED)" 

6790  LET  X2  • 0 

6000  DO 

6010  LET  X2  • X2  ♦ l 

6820  DO 

6830  LINPUT  A4(X2> 

6840  LET  MS  - POS(  A4(X2>.  It.  0 ) 

6030  IF  M3  > 0 THEN  PERFORM  QUOTE 

6060  LOOP  UNTIL  M3-0 

6070  LOOP  WHILE  LEN(  A«(X2>  ) <>  0 AND  X2  < 10 

6000  DEFEND  PAPER  INFO 

6890 

6900  EJECT 


™IS  IS 
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6910  DEFINE  MANY  PAPER  ADD 

6920  PRINT  

6930  FOR  XI  - 1 TO  PI 

6940  LET  P14  - P2*  - P3*  - P4*  - 

6930  PRINT 

6960  PRINT  -•-!  XI 

6970  PRINT 

6980  PERFORM  PAPER  INFO 

6990  PRINT  «3  P2.  "i  Z*M>1*W*.  ".  •»  Z*tP2*«.Z«.  Z*6P3*6Z*.  ",  "»  Z«l>P464Zt>  "i  <X2-1>« 

7000  FOR  X4-1  TO  <X2-1> 

7010  PRINT  #3  Z*t«A* ( X4 ) 6Z*. 

7020  NEXT  X4 

7030  MINT  63  'In  tMtet.  a carrtagt  raturn 

7040  f.<INT  

7030  NEXT  XI 

7060  DEFEND  MANY  PAPER  ADD 

7070 

7000  END 
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